home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 February / PCWorld_2007-02_cd.bin / domacnost a kancelar / avedesk / AveDesk13.exe / Tools / showcase.vbs < prev    next >
Text File  |  2005-07-10  |  172b  |  8 lines
  1. Dim ad 'as avedesk.application
  2. set ad = CreateObject("AveDesk.Application")
  3.  
  4. if ad.ShowCase.Active then
  5.    ad.ShowCase.DeActivate
  6. else
  7.    ad.ShowCase.Activate
  8. end if